home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / mui-filofax / hd_install < prev    next >
Text File  |  1995-10-27  |  11KB  |  415 lines
  1. (procedure INSTALL
  2.    (SET Filo_dest
  3.            (askdir
  4.                 (prompt #ziel)
  5.                 (help #ziel_hilfe)
  6.                 (default @default-dest)
  7.            )
  8.    )
  9.  
  10.    (complete 10)
  11.  
  12.    (makedir (tackon Filo_dest "FiloFax") (infos))
  13.    (makedir (tackon "SYS:S/" "FiloData"))
  14.  
  15.    (SET Filo_dest (tackon Filo_dest "FiloFax"))
  16.    (set @default-dest Filo_dest)
  17.  
  18.    (copyfiles
  19.            (source "")
  20.            (dest Filo_dest) (pattern "#?") (infos)
  21.    )       
  22.  
  23.    (copyfiles
  24.                (source "FiloInter")
  25.                (dest   "SYS:S/FiloData/")
  26.    )
  27.  
  28.    (copyfiles
  29.              (source "FiloFax.iv")
  30.              (dest   "SYS:S/FiloData/")
  31.    )
  32.  
  33.    (complete 70)
  34.  
  35.       ((SET zusatze (askchoice
  36.                (prompt #zusatz)
  37.                (choices #zusatz_wahl1
  38.                         #zusatz_wahl2
  39.                         #zusatz_wahl3)
  40.                (help #zusatz_hilfe)
  41.                (DEFAULT 0)
  42.            ))
  43.        )
  44.  
  45.        (IF (= zusatze 0) (
  46.            (copyfiles
  47.                (source "FiloCheck")
  48.                (dest   "SYS:WBStartup/")
  49.            )
  50.            (copyfiles
  51.                (source "FiloCheck.info")
  52.                (dest   "SYS:WBStartup/")
  53.            )
  54.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  55.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  56.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  57.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  58.            )
  59.        ))
  60.  
  61.        (complete 85)
  62.        (IF (= zusatze 1) (
  63.            (copyfiles
  64.                (source "FiloCheck-Light")
  65.                (dest   "SYS:WBStartup/")
  66.            )
  67.            (copyfiles
  68.  
  69.                (source "FiloCheck-Light.info")
  70.                (dest   "SYS:WBStartup/")
  71.            )
  72.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck-Light"))
  73.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  74.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  75.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  76.            )
  77.        ))
  78.  
  79.    (copylib    (prompt #library)
  80.                (help "")
  81.                (source lib)
  82.                (dest "LIBS:")
  83.                (confirm)
  84.    )
  85.  
  86.    (IF (< (/ (getversion) 65536) 38)
  87.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  88.                  (setdefaulttool "sys:utilities/AmigaGuide")
  89.        )
  90.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  91.                  (setdefaulttool "sys:utilities/Multiview")
  92.        )
  93.    )           
  94.    (complete 100)
  95. )
  96.  
  97.  
  98.  
  99.  
  100. (procedure UPDATE
  101.    (message #update)
  102.  
  103.    (SET Filo_dest
  104.            (askdir
  105.                    (prompt #u_ziel)
  106.                    (help #u_ziel_hilfe)
  107.                    (default @default-dest)
  108.            )
  109.    )
  110.  
  111.    (complete 10)
  112.  
  113.    (set @default-dest Filo_dest)
  114.    (run "delete " Filo_dest "ALL FORCE")
  115.    ;(delete Filo_dest "#?")
  116.    (makedir (tackon "SYS:S/" "FiloData"))
  117.  
  118.    (if (exists "SYS:S/FiloFax.terms")
  119.      (copyfiles (source "SYS:S/FiloFax.terms") (dest "SYS:S/FiloData"))
  120.    )
  121.    (if (exists "SYS:S/Filo.Key")
  122.      (copyfiles (source "SYS:S/Filo.Key") (dest "SYS:S/FiloData"))
  123.    )
  124.    (if (exists "SYS:S/FiloPrefs")
  125.      (copyfiles (source "SYS:S/FiloPrefs") (dest "SYS:S/FiloData"))
  126.    )
  127.  
  128.    (copyfiles
  129.            (source "")
  130.            (dest Filo_dest) (pattern "#?") (infos)
  131.    )       
  132.  
  133.    (copyfiles
  134.                (source "FiloInter")
  135.                (dest   "SYS:S/FiloData/")
  136.    )
  137.  
  138.    (copyfiles
  139.              (source "FiloFax.iv")
  140.              (dest   "SYS:S/FiloData/")
  141.    )
  142.  
  143.    (complete 70)
  144.       ((SET zusatze (askchoice
  145.                (prompt #zusatz)
  146.                (choices #zusatz_wahl1
  147.                         #zusatz_wahl2
  148.                         #zusatz_wahl3)
  149.                (help #zusatz_hilfe)
  150.                (DEFAULT 0)
  151.            ))
  152.        )
  153.  
  154.        (IF (= zusatze 0) (
  155.            (copyfiles
  156.                (source "FiloCheck")
  157.                (dest   "SYS:WBStartup/")
  158.            )
  159.            (copyfiles
  160.                (source "FiloCheck.info")
  161.                (dest   "SYS:WBStartup/")
  162.            )
  163.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  164.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  165.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  166.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  167.            )
  168.        ))
  169.  
  170.        (complete 85)
  171.        (IF (= zusatze 1) (
  172.            (copyfiles
  173.                (source "FiloCheck-Light")
  174.                (dest   "SYS:WBStartup/")
  175.            )
  176.            (copyfiles
  177.  
  178.                (source "FiloCheck-Light.info")
  179.                (dest   "SYS:WBStartup/")
  180.            )
  181.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck-Light"))
  182.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  183.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  184.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  185.            )
  186.        ))
  187.  
  188.    (copylib    (prompt #library)
  189.                (help "")
  190.                (source lib)
  191.                (dest "LIBS:")
  192.                (confirm)
  193.    )
  194.  
  195.    (IF (< (/ (getversion) 65536) 38)
  196.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  197.                  (setdefaulttool "sys:utilities/AmigaGuide")
  198.        )
  199.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  200.                  (setdefaulttool "sys:utilities/Multiview")
  201.        )
  202.    )           
  203.    (complete 100)
  204. )
  205.  
  206. (procedure UPDATE2
  207.    (message #update)
  208.  
  209.    (SET Filo_dest
  210.            (askdir
  211.                    (prompt #u_ziel)
  212.                    (help #u_ziel_hilfe)
  213.                    (default @default-dest)
  214.            )
  215.    )
  216.  
  217.    (complete 10)
  218.  
  219.    (SET @default-dest Filo_dest)
  220.    (run "delete " Filo_dest "ALL FORCE")
  221.    ;(delete Filo_dest "#?")
  222.    (makedir (tackon "SYS:S/" "FiloData"))
  223.  
  224.    (copyfiles
  225.            (source "")
  226.            (dest Filo_dest) (pattern "#?") (infos)
  227.    )
  228.  
  229.    (copyfiles
  230.                (source "FiloInter")
  231.                (dest   "SYS:S/FiloData/")
  232.    )
  233.  
  234.    (copyfiles
  235.              (source "FiloFax.iv")
  236.              (dest   "SYS:S/FiloData/")
  237.    )
  238.  
  239.    (complete 70)
  240.           ((SET zusatze (askchoice
  241.                (prompt #zusatz)
  242.                (choices #zusatz_wahl1
  243.                         #zusatz_wahl2
  244.                         #zusatz_wahl3)
  245.                (help #zusatz_hilfe)
  246.                (DEFAULT 0)
  247.            ))
  248.        )
  249.  
  250.        (IF (= zusatze 0) (
  251.            (copyfiles
  252.                (source "FiloCheck")
  253.                (dest   "SYS:WBStartup/")
  254.            )
  255.            (copyfiles
  256.                (source "FiloCheck.info")
  257.                (dest   "SYS:WBStartup/")
  258.            )
  259.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  260.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  261.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  262.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  263.            )
  264.        ))
  265.  
  266.        (complete 85)
  267.        (IF (= zusatze 1) (
  268.            (copyfiles
  269.                (source "FiloCheck-Light")
  270.                (dest   "SYS:WBStartup/")
  271.            )
  272.            (copyfiles
  273.  
  274.                (source "FiloCheck-Light.info")
  275.                (dest   "SYS:WBStartup/")
  276.            )
  277.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck-Light"))
  278.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  279.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  280.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  281.            )
  282.        ))
  283.  
  284.    (copylib    (prompt #library)
  285.                (help "")
  286.                (source lib)
  287.                (dest "LIBS:")
  288.                (confirm)
  289.    )
  290.  
  291.    (IF (< (/ (getversion) 65536) 38)
  292.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  293.                  (setdefaulttool "sys:utilities/AmigaGuide")
  294.        )
  295.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  296.                  (setdefaulttool "sys:utilities/Multiview")
  297.        )
  298.    )
  299.    (complete 100)
  300. )
  301.  
  302. (procedure ende
  303.    (message #ende)
  304. )
  305.  
  306. (procedure setzen
  307.    (set #ziel (cat ""
  308.      "In welche Disk/Schublade soll FiloFax installiert werden?"
  309.    ))
  310.  
  311.    (set #ziel_hilfe (cat ""
  312.      "Das Installationsprogramm erstellt das Verzeichnis   \n"
  313.      "\"FiloFax\" in diesem Verzeichnis.                   \n"
  314.      "Alle \"FiloFax\" Dateien werden in dieses Verzeichnis\n"
  315.      "kopiert                                              \n"
  316.    ))
  317.  
  318.    (set #zusatz (cat ""
  319.       "Wollen Sie folgende Installationsteile auch durchführen ?\n"
  320.    ))
  321.  
  322.    (set #zusatz_wahl1 (cat ""
  323.       "FiloCheck (MUI) in die WB-Startup:"
  324.    ))
  325.  
  326.    (set #zusatz_wahl2 (cat ""
  327.       "FiloCheck (Light) in die WB-Startup:"
  328.    ))
  329.  
  330.    (SET #zusatz_wahl3 (cat ""
  331.       "Nichts in die WB-Startup installieren..."
  332.    ))
  333.  
  334.    (set #zusatz_hilfe (cat ""
  335.       "Das Programm FiloCheck wird beim Booten \n"
  336.       "automatisch gestartet. (FiloCheck wird  \n"
  337.       "über die Tooltypes konfiguriert, mehr   \n"
  338.       "dazu in der Anleitung)                \n\n"
  339.       "1. Ist die MUI-Version von FiloCheck\n"
  340.       "2. Ist die GadTools-Version von FiloCheck"
  341.    ))
  342.  
  343.    (set #library (cat ""
  344.       "FiloFax benöntigt die ReqTools.library   \n"
  345.       "Wollen Sie diese jetzt installieren     \n"
  346.    ))
  347.  
  348.    (set #update (cat ""
  349.       "Sie haben sich für eine Updateinstallation entschieden.\n\n"
  350.       "Wählen Sie im folgenden Dateirequester, den Pfad von \n"
  351.       "FiloFax aus. Die Daten diese Verzeichnisses sind dann\n"
  352.       "unwiderruflich verloren und werden durch das Update \n"
  353.       "ersetzt. Falls Sie also z.b. noch eigene Dateien in\n"
  354.       "diesem Verzeichnis installiert haben, brechen Sie nun\n"
  355.       "ab und machen Sie von Ihren Dateien ein Backup."
  356.  ))
  357.  
  358.    (set #u_ziel (cat ""
  359.       "Bitte wählen Sie den Pfad in dem sich die alte Version von "
  360.       "FiloFax befindet."
  361.    ))
  362.  
  363.    (set #u_ziel_hilfe (cat ""
  364.       "Das Installationsprogramm löscht alle Daten dieses Verzeichnises.\n"
  365.       "Danach wird die neue Version von FiloFax in dieses Verzeichnises "
  366.       "kopiert.                                                           "
  367.    ))
  368.  
  369.    (set #ende (cat "\n"
  370.       "\n\n"
  371.       "Die Installation ist nun beendet.            \n\n"
  372.       "Bitte starten Sie ihren Rechner neu um FiloFax \n"
  373.       "richtig zu nutzen.                             \n"
  374.    ))
  375. )
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382. (SET lib "libs/reqtools.library")
  383. (SET @default-dest "SYS:")
  384.  
  385. (complete 0)
  386.  
  387. (IF (< (/ (getversion) 65536) 37)
  388.     (
  389.       (message "\n Tut mir leid, dieses Paket benoetigt mind. OS2.04.\n")
  390.       (exit (quiet))
  391.     )
  392. )
  393.  
  394. (SET neu_update (askchoice
  395.     (prompt "Welche Art der Installation wünschen Sie ?")
  396.     (choices
  397.         "Neu Installation"
  398.         "Update Installation von v1.0"
  399.         "Update Installation von v2.0"
  400.     )
  401.     (help "Falls Sie schon eine Version von FiloFax instaliert haben sollten Sie Update wählen")
  402. ))
  403.  
  404. (setzen)
  405. (IF (= neu_update 0) (INSTALL))
  406. (IF (= neu_update 1) (UPDATE))
  407. (IF (= neu_update 2) (UPDATE2))
  408.  
  409. (ende)
  410. (exit (quiet))
  411.  
  412.  
  413.  
  414.  
  415.